10 REM *** PROGRAMM TEILBILDSCHIRM IN BASIC ***
20 INPUT"ECKE LINKS OBEN S1,Z1   =";S1,Z1
30 INPUT"ECKE RECHTS UNTEN S2,Z2 =";S2,Z2
40 INPUT"WAS SOLL HINEIN          ";W
50 REM ** STEUERWERTE BERECHNEN: S  = BILDSCHIRMSTARTADRESSE
60 REM                           SD = SPALTENDIFFERENZ
70 REM                           ZD = ZEILENDIFFERENZ
80 SC = (null)("3FF"):S = SC + 40*(Z1-1) + S1:SD = S2 - S1:ZD = Z2 - Z1
90 REM *** SCHLEIFE ***
100 I=0:Z=0
110 :POKE S+I,W
120 :I=I+1:IF I>SD THEN S=S+40:I=0:Z=Z+1:IF Z>ZD THEN END
130 :GOTO 110